home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 9
/
The PC-SIG Library on CD ROM - Ninth Edition.iso
/
301_400
/
DISK0324
/
DISK0324.ZIP
/
LOADER.INC
< prev
next >
Wrap
Text File
|
1985-01-06
|
512b
|
15 lines
END;
END.
PROCEDURE LOAD( PROC_OFFSET : INTEGER );
VAR
HEADER_SIZE, I, ADDRESS : INTEGER;
BEGIN
HEADER_SIZE := MEMW[ CSEG:PROC_OFFSET + 1 ];
I := PROC_OFFSET + 4;
WHILE ( I <= PROC_OFFSET + HEADER_SIZE + 3 ) DO
BEGIN
ADDRESS := MEMW[ CSEG:I ];
ADDRESS := ( I - ADDRESS + 1 ) XOR $FFFF;
MEMW[ CSEG:I ] := ADDR